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FFFFFFFFFRFFFFE 000000000 RRRRRRRRRRRR RRRRRRRRRRRR TITTTTTTTTTTTTT LLet 
FFFFFRFFRRFFFFE 000000000 RRRRRRRRRRRR RRRRRRRRRRRR TITTTTTTTTTTTFT Lie 
FFFFFRFRRRFFFFFE 000000000 RRRRRRRRRRRR RRRRRRRRRRRR TITTTTITTTTTTTT §=LtL 
FFF 000 000 RRR RRR RRR RRR TTT LLL 
FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 
FFFFFFFFFFFF 000 000 RRRRRRRRRRRR RRRRRRRRRRRR TTT LLL 
FFFFFFFFFFFE 000 000 RRRRRRRRRRRR RRRRRRRRRRRR TTT LLL 
FFFFFFFFFFFF 000 000 RRRRRRRRRRRR RRRRRRRRRRRR TTT LLL 

FFF 000 000 RRR RRR RRR = RRR TTT LLL 

FFF 000 000 RRR RRR RRR = =RRR TTT LLL 

FFF 000 RRR RRR RRR = RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 0 000 RRR RRR RRR RRR TTT LLL 

FFF 000000000 RRR RRR RRR RRR TTT LLLLLLLLLLELLLL 
FFF 000000000 RRR RRR RRR RRR TTT LLLLLLLLLLELLLL 
FFF 000000000 RRR RRR RRR RRR TTT LLLLELLLLLLLLLL 
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| COMSASSIGN Compatibility CALL ASSIGN routine 1o~200" 138? 99:98:06 AX-11 Oi tage ae V4.0-74 
4 231: COMASSIGN.B32;1 (1) 


14-Sep-19 FORRTL.SRC 


001 MODULE COMSASSIGN CETITUR Compoc ibility CALL ASSIGN routine’ 
O08 IDENT = '1-007', ' File: COMASSIGN.B32 Edit: sbl1007 
Oba LINKAGE (FORTRAN) ! Call-by reference 
BR? BEGIN 
307 i eeeeeeeeeeereeeeeeeeeeeeeeneeeeeerereeeeereeretrereeeereeeeereeeeeeereeeeees 
0 '® 
0009 'e COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 


S 


BF EWAWWIANWAAANI AIRS POPUPONUNINININIDN 2 2 2 OO OO 


ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
't ALL RIGHTS RESERVED. 


'® THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
't ONLY IN ACCORDANCE THE TERM F SUCH LICENSE AND WITH THE 
'® INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
:* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
'® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


® 
® 
t 
® 
® 
® 
® 
® 
® 
® 
is TRANSFERRED. . 
® 
*® 
x 
® 
® 
® 
® 
wy 
* 
® 


iw THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
7 apOkat itn NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
:* . 


it DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
:® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


Ve RReRA AERA EAAAA EE AAAAAAAEAEHAAEAAAATATA AERA AAT AARAAeeeAAeeeeAeeeeee 
‘ 


¢ J 
FACILITY: FORTRAN Compatibility Library 
ABSTRACT: 


MEUM "ODO DNAVSWN (OO DONOUE WN (OO ONOUSWN— 


RNIN IRIN INIT ame a ed ed ed ed 


Assign logical name to unit to be in effect until call CLOSE 


SOSCSCOCOCOSOSOSOSOSOSOCOOOSOOOOCOOOOSOOoOoOO 
Patatatatatatatatatatatatatetatototetatetotetetetetetetote) 
SOWONOAMNEWIN (“OO ONOUSWN — OOONOULSUNO 


ee ee ee ee ee ee ee ee ee ee ee eee 


14 
: 
i 
i 
i 
7 i 
$0 ENVIRONMENT: User Mode - AST re-entrant 
40 040 AUTHOR: Thomas N. Hastings, CREATION DATE: 8-Aug-1977 
4¢ 0048 i MODIFIED BY: 
44 0044 1! Thomas N. Hastings, 31-Oct-1977: VERSION 
45 0045 ! (Previous edit history removed. SBL 1-March-1983] 
46 0046 ! 1-001 = Update version number and copyright notice. JBS 16-NOV-78 
47 0047 ! 1-002 - Declare NULLPARAMETER for the new BLISS conpi ler. JBS_22-NOV-78 
48 0048 ! 1-003 = Change REQUIRE file names from FOR... to OTS... JBS 07-DEC-78 
49 0049 ' 1-004 = Change OTSOPN back to FOROPN and change some OPEN 
$0 0050 1: pref ixes to LUB. JBS 13-DEC-78 
51 0051 ' 1-005 - Use 32-bit addresses for externals. JBS 27-JAN-1979 
2g Bo2¢ ! 1-006 - Move LE JORARY BILSTARLE so FOROPN can use its symbols. 
5 005 i JBS 10-APR-197 a 
54 0054 ! 1-007 - Remove upcasing/blankoste ipa ing logic from OPEN_FNAME, as it hasn’ 
2? 0036 been needed since VAX/VMS V2.0. Use prologue file. SBL 1-Mar-198 
57 005 


-- 
1o 
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COMSASSIGN Compatibility CALL ASSIGN routine 16-36 AX-11 Bliss-32 V4.0-7 Page 2 
1-007 , ox e8= 188s 99: 9F 8G ee eae comatcion 62:1 9% 025 
; pe 1! 
: 60 1 ' PROLOGUE FILE: 
3; 6) 060 1! 
3 6¢ 061 1 
: e? 4 4 ; REQUIRE ‘RTLIN:FORPROLOG'; ' FORS declarations 
: 65 1 91! 
3 68 150 1 ! TABLE OF CONTENTS: 
.- ¢ i). an Ss 
; & 1 ¢ 1 
; 69 133 1 FORWARD ROUTINE | 
... oi 4 1 ASSIGN : NOVALUE ! Assign logical name = no pre 
: a! 3 2 : OPEN_FNAME : NOVALUE; ! Edit filename string (Like SPEND 
: ig 0137 1! | 
; 0138 1 ! MACROS: 
. oe 0139 1! 
: 76 0140 1! NONE 
; 77 0141 1! 
Ss . B16 1 ! EQUATED SYMBOLS: 
3 79 0143 1! 
; & 0144 1! NONE 
; 8 0145 1! 
; § 0146 1 ! OWN STORAGE: 
; § 0147 1! 
; = B4 0148 1! NONE 
: 85 0149 1°! 
; 686 0150 1 ! EXTERNAL REFERENCES: 
Pan 0151 1! 
: 88 3126 1 
: 8 0155 1 EXTERNAL ROUTINE 
; 0154 1 FORSSSIGNAL_STO : NOVALUE ADDRESSING_MODE (GENERAL), ! SIGNAL_STOP errors | 
: 91 0155 1 FORSSGET VAT : ADDRESSING MODE (GENERAL), ! Allocate virtual memory for current unit 
; 92 0156 1 FORSSFREE VM : NOVALUE ADDRESSING MODE (GENERA ' deallocate virtual memory for current unit 
; ¥ 0157 1 FORS$S$CB_POSH : JSB_CB_PUSH NOVALUE ADDRESSING AMOBE (GENERAL), 
s 9% 0158 1 } Push down current boatest unit if any 
s 95 0159 1 and allocate LUB/ISB/RAB if not already 
; 0160 1 FORSSCB POP : JSB_CB_POP NOVALUE ADDRESSING “MODE (GENERAL), ! Pop up current logical unit 
3 44 316) : FORSSERR_OPECLO : NOVALUE; ' Error handler | 


F 12 
SSIGN Compatibility CALL ASSIGN routine 16-Sep-1984 00:08: AX-11 Bliss-32 V4.0-74 
: . 14 eet 1 99:99:95 


7 Page 
FORRTL.SRCJCOMASSIGN.B52;1 


: NOVALUE = 


+e 
FUNCTIONAL DESCRIPTION: 


Aesten filename string to logical unit until CALL CLOSE. 
Leading, trailing and imbedded spaces are removed. 
Lowercase is converted to upper case. 


FORMAL PARAMETERS: 
OGICAL_UNIT.rw.r Adr. of word containing logical unit : 
NAME -ARRAYORDSE srt (raids) Adr. of array of characters or adr. of descriptor of file name 
NAME_COUNTrw.rJJ Optional adr. or word containing cont of no. of characters 
If count is 0, or arg omitted, scan array for null. 


IMPLICIT INPUTS: 


09 09 09 09 09 09 08 SINS NSN NSO PAO OOO 


SSSLSSRAN LS SSVSALASSSsSa NAL EWN" OOONOUEW 


OTS$$A_CUR_LUB Adr. of current LUB/ISB/RAB 

LUBSA_FAB Adr. of FAB if assigned to LUB 
IMPLICIT OUTPUTS: 

LUBSA_F AB Set to adr. of allocated FAB 


ROUTINE VALUE: 
COMPLETION CODES: 


NONE 
SIDE EFFECTS: 
oi Locete wah cmatec ag and FAB and RMS name block if not already 


OWOOOOOO0OOMWO 


a eee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee eee 
POIPOIPOPOPIPOPIPINDRY 8 at tt tt ot ot tt a 


fw. Teele. 1 esl sl ear ae a oF at ar nt br oe pt el”, 1”, 1%, | WAAAY PI PIP NIPINPYINIDD 2 I SS 2 OQOOOOOOCOOCOCO 
Soe eS ER HS SSISEREUR SS SRNR Oo re Fv Oo Se we ako 
ScoCOCC OOO COCO O OOOO OOOO OOOO OOOO COC OOO COCO OOO OOOO OOO OCO OCC 
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1 
1 
1 
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1 
1 
1 
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1 
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1 
1 
1 
1 
1 
1 
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1 
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1 
1 
1 
1 
1 
1 
1 
1 
: 


STOPs the following errors: 
01 FORS_INSVIRMEM = INSUFFICIENT VIRTUAL MEMORY 
4 FORS_UNIALROPE = UNIT ALREADY OPENED 
2 OTSS_FATINTERR = FATAL INTERNAL ERROR IN RUN-TIME LIBRARY 
05 
8g BEGIN 
08 BUILTIN 
4 NULLPARAMETER; 
11 GLOBAL REGISTER 
\§ CCB = 11 : REF SFORSCCB_DECL; 
14 P 
15 LOGICAL_UNIT : REF VECTOR (1, WORD], ' Pass word by-reference 
1g NAME_COONT : REF VECTOR (1, WORD); ! Pass word by-reference 
18 LOCAL 
19 FAB : REF BLOCK CFABS$K_BLN, BYTE], ' base ptr to FAB 


3 
(3) 


GLOBAL ROUTINE ASSIGN ( ! Assign logical name to unit 
IT ! Adr. of word containing Logical unit 
NAME_ARRAYORDSC, i Optional adr of array of ASCIZ cgaracters or adr if descr, | 
NAME COUNT) ! Optional adr. of word containing character count 


| 


12 
56 -1984 00:08: AX-11 Bliss-32 V4.0-74 Page 4 
aaa 93:99:95 PORRTL  SREICOMASS IGN. B S251 ’ (3) 
NAME _DSC_PTR : REF DSCSDESCRIPTOR, ! Pointer to name Gost ieter - either points to callers 
Gover ipter . r to LOCAL NAME_DSC if caller passes by reference. 


NAME _DSC : DSCSDESCRIPTOR , ng descriptor for file name 
LLUN@IND_ACTION : VOLATILE; ! Unwind action for error handler 


FORSASSIGN Compatibility CALL ASSIGN routine 


—27 = 


ABLE 
FORSSERR_OPECLO (L_UNWIND_ACTION); ! Enable error handler 
‘+ 
Indicate no unwind action until LUB/ISB/RAB successfully pushed down 


L_UNWIND_ACTION = FORSK_UNWINDNOP; 


‘4 
If unit already opened, SIGNAL_STOP FORS_UNIALROPE (43 = ‘UNIT ALREADY OPENED‘) 


0 

1 '+ 

§ ! Pushdown 1/0 system and allocate LUB/ISB/RAB for logical unit if not already allocated 
' SIGNAL_STOP if any errors. 

4 ' If no errors, change error UNWIND action to pop LUB/ISB/RAB if an unwind should occur. 

2 On return, CCB points to the current control block 

7 . 

8 FORSSCB_PUSH (.LOGICAL_UNIT (OJ, LUBSK_LUN_MIN); 

. L_UNWIND_ACTION = FORSR_UNWINDPOP; 

1 

2 

3 


IF .CCB CLUBSV_OPENED] THEN SFORSSSIGNAL_STO (FORSK_UNIALROPE) ; 
1+ 
If filename present, build a descriptor for string 
IF NOT NULLPARAMETER (2) 
THEN 
BEGIN 


oovono oo 00 09 09 C0 09 09 09 SI NIN SIN NI NSO AAA AOAO ww 


on 


+ 
! Assume NAMEARRAYORDSC is adr. of descriptor (caller unteg a string expression) 
Note: the detection of whether a descriptor or not is not completely fool proof. 


NAME_DSC_PTR = .NAME_ARRAYORDSC; 
IF .NAME_DSC_PTR CDSC$W LENGTH} GTRU 255 OR .NAME_DSC_PTR CDSCS$B_DTYPE] NEQU DSCSK_DTYPE_T OR 
ren ese PTR CDOSCSB_CLASS) NEQU DSCSK_CLASS_S 


'¢ 


PDAEAPEAEAEAEMMAMNMMNM nv 


av2SS 


meron 


4 is an array, not a descriptor. | : ‘ 

! Set pointer to LOCAL string descriptor NAME_DSC which will be filled in. 

! Set length from NAME_COUNT if present and not 0, else scan string for null. 
Set pointer to start of string. 


S& 


MMPToTON 
LESRE 
SOoOoooooooocoo 


Wwnr—o 


Be Oe Oe Oe Oe Se Be Se Be Oe Oe SH Se Se Se os Se SESH Ss Se Se Se Se Sse BH Se oe BH SH oe SESH Se Oe OHSS Oe Oe OH Oe HSH Oe HOH Oe HSH Oe SHH Os Oe ee Os os 


Ronoronory 
POPOPOPINIPSPOPOPONPINNI 
PAA AANA NAIA AAI WII EPO PIPONIPOPU POPU PONY 
5 
' 
> 
zz 
z= 
> 
a 
a) 
o 
a& 
~ 
~ 
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BEGIN 
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COMSASSIGN Compatibility CALL ASSIGN routine 16-Sep-1984 00:08: AX-11 Bliss-32 V4.0-74 p 
1-00 , 1o-808- 138s 99:99:95 TL_SRC} oe is 


7 FORR COMASSIGN.B32;1 
> 2146 77 4 NAME_DSC_PTR = NAME DSC; 
; 215 £8 4 NAME ~DSC FOSC$A_POIRTERS = ,NAME_ARRAYORDSC; 
H \$ 79 «5 NAME_DSC LDSCSW LENGTHA = (IF NOT NULLPARAMETER (3) THEN IF .NAME_COUNT [0] NEQ 0 THEN 
; 1 + 6 «NAME_COUNT CO] ELSE MINU ((CHSFIND_CH (OPENSK_ST x . NAME _ARRAYORDSC 0) - 
H 8 0281 6 «NAME _ARRAYORDSC), OPENSK_STR_MAX) ELSE MIRU (TCHSF IND CH (OPENSK_STR_MAX, 
3 2 SS 4 ~ «NAME“ARRAYORDSC, 0) = .NAME_ARRAYORDSC), OPENSK_STR_MAX)); 
: 552 i | 
; '¢ 
; : 0 Hs] ' If FAB not already allocated (no previous CALL FDBSET or CALL ASSIGN) set one up. 
3 ¢ bs : Clear FABSB_FNS and FABSL_FNA to indicate filename string not allocated. 
; 9 . 
: ° 90 IF (FAB = .CCB CLUBSA_FAB]) EQL 0 
; 8 0291 THEN 
; $3 0 3 4 BEGIN 
: Q 0295 4 FAB = FORSSGET_VM (FABSK_BLN); 
; 231 0294 4 CHSFILL (0, FABSK_BLN, .FAB); 
; 33¢ 0295 4 CCB LUBSA_FAB) =". FAB; 
; 23 0296 4 FAB CFABSB-B1D] = FABSC_BID; 
3 234 0297 4 FAB CFABS$B~BLNJ = FABSK~BLN; 
; S32 0298 4 END 
; 236 0299 ELSE 
s en 0300 
3; en 0301 + 
3 $23 a4 } FAB already setup and a filename string already present (previous CALL ASSIGN) deallocate it. 
; 241 0304 3 
3 seg 0305 4 BEGIN 
; 24 0306 4 
3 246 0307 4 IF .FAB CFABSL_FNA] NEQA 0 
; 245 0308 4 THEN 
; 246 0309 5 BEGIN 
: 247 0310 5 FORSSFREE_VM (.FAB CFABSB_FNS], .FAB CFABSL_FNA)); 
; 248 0311 5§ AB bEASSB ENS. = 0; 
3 249 0312 5 FAB CFABSL_FNAJ = 0; 
: 250 0313 4 END; 
; 251 0314 4 
3 $26 0315 3 END; 
3; @ 0316 H 
: 254 0317 '+ : 
3 @23 0318 ' Copy series from user to dynamically allocated area = 
; 256 0319 ' and set FAB to point to string. wo out leading, embedded and trailing spaces. 
; See 8359 ' Convert lower case to upper case. OPEN_FNAME expects FAB to be already allocatted 
: 258 1 ! with no filename allocated. 
; 259 8356 !- 
; 260 032 
; 261 0324 OPEN_FNAME (.NAME_DSC_PTR, .FAB); 
3 $66 0325 END; 
Bo BS, 
3; 265 328 ' Pop LUB/ISB/RAB to previous if any. 
; 266 0329 !- 
: 267 ; 0 
5 68 1 FORSSCB_POP (); : 
; 269 ; § RETURN ' return to caller leaving FAB allocated. 
; a0 0333 1 END; 


12 
COMSASSIGN Compatibility CALL ASSIGN routine 14. -Sep-19 AX-11 Bliss-32 V4.0-74 Page 6) 
1-007 14- ~hep -1 138e 99: 98: 9s FORRTL.SRCJCOMASSIGN.B32;1 . (3) | 
-TITLE COMSASSIGN Compatibility CALL ASSIGN routine 
“IDENT A Te0078 ° , | 
.EXTRN FORSSSIGNAL_STO | 
-EXTRN FORSSGET_VM> FORSSFREE_VM | 
SEXTRN FORSSCB BY SH, FORS$CB_POP | 
EXTRN FORSSERR OPECL 0 
.PSECT _FORSCODE,NOWRT, SHR, PIC,2 | 
O8FC 000 .ENTRY ASSIGN, Save R2,R3,R4,R5,R6,R7,R11 : 0163) 
Z a a pee is 
6D Oopc =F Dg 99007 MOVAL +3 a : 
6E gi DO 0000C MOVL ne L oI _ACTION : 0232 
2 04 ac Be Soot Sov TUL oY enttie UNIT, R2 mas 
000000006 06 16 00015 JSB FORSS$CB_PUS F 
6E 04 00018 CLAL L vais “ACTION 3 0242 
OA FC AB E9 0001D BLBC «= =C : 0248 
22 OD 00021 PUSHL Phe : 
000000006 00 01 FB 00023 CALLS #1, aes ; | 
04 0002A RET : 
02 ¢ 91 00028 1$: CMPBs«CAP), #2 > 0254 
03 1€ O002E BGEQU 3$ ; | 
OOAD 31 00030 a8: BRW 13$ : 
08 AC 05 00033 3$: TSTL 8(AP) : | 
FB 13 00036 BEQL ; 
52 08 aC 00 00038 MOVL § NAME_ARRAYORDSC, R2 : 0263 
57 52 D0 0003C MOVL 2, NAME_DSC_PTR : 
OOFF 8F 67 81 0003F CMPW (NAME_DSC_PTR), #255 ; 0265 
OC 1A 00044 BGTRU ; 
OE 02 A? 91 00046 CMPB 2(NAME_DSC_PTR), #14 : 
06 12 0004A BNEQ ; 
01 03 A? 91 0004C CMPB 3 (NAME _DSC_PTR), #1 : 0266 
45 13 90059 BEQL © 10$ ; 
57 04 AE 9E 00052 4s: MOVAB NAME_DSC, Ane _DSC_PTR : 0277 
08 AE 52 D0 00056 MOVL Re 5 MAME DSC : 0278 
03 6C 91 0005A CMPB : 0279 
1A 1F 0005D BLSSU $$ ; 
0c AC DS 0005F TSTL  12¢AP) : 
1§ 1 0062 BEQL 86 : 
0c BC 8 TSTW § @NAME_COUNT ; 
6 13 00067 BEQL 5$ F 
51 0c BC 3C 00069 MOVZWL @NAME_COUNT, R1 : 0280 
4 11 0006D BRB 9$ ; 
62 0064 8F 0 3A O06F 5$: Locc }§=6_s#0,,_- #100, (R2) F 
A 13 00075 BEQL «86 7$ ; 
OA 11 9077 BRB 8$ > 0281 | 
62 0064 8F 00 3A 00079 68: Locc =©._-« #0,,_-«# 100, (R2) ; 
é 12 O07 BNEQ 8$ ; 
D4 6 1 7$: CLRL. R11 ; 
51 2 C2 00083 8$: SUBL2 R2, R1 : 0282 
00000064 &F 1 D1 000 CMPL  R1. #100 : 0281 
04 18 00080 BLEQU 9$ ; 


o 
oO 
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COMSASSIGN Compatibility CALL ASSIGN routine 18-Sep-1984 AX-11 Bliss-32 v4.07 ° a 
1-007 y ' ae) a Be ht RT et wer a) | 


—s 


51 64 gf 9A 8F MOVZBL #100, : : 
04 Ag 1 8 93 9$: MOVW hare PC : 0279) : 
5 £8 AB p 97 10$: OV sce: FAB ; 0290 ; 
7 50 8F 9A 0009D MOVZBL #80, -(SP) + 0293) ; 
000000006 Q 1 FB 0A} CALLS #1, FORSSGET_VM : ; 
£ 0 p 00A8 MOVL . ; : 
0050 «BF 00 6E 00 ¢ OA MOVCS #0, (SP), #0, #80, (FAB) + 0294 : 
E8 AB $8 DO 0008 MOVL FAB =24(CCB) + 0295 : 
66 5003 8F B80 0008 MOV #20 483, (FAB) ; 0296 : 
19 11 ooB¢ BRB ; 9490 ; 
2c AG b3 OBE 11$: TSTL  44(FAB) : 0307 : 
14 13 000C BEQL =: 12$ : 
3¢ A6 DD 000C3 PUSHL 44 (FAB) : 0310 
7E 4 Ab 9A 00066 MOVZBL 52(FAB), =-(SP) : 
000000006 00 02 FB O0CA CALLS. @# PORSSFREE VM : 
34 Ab 94 00001 LRB © S2¢ FAB) + 0311 
2C Ab D4 00004 CLRL 44 FAB) : 0312 
56 DD 00007 128: PUSHL FAB + 0324 
57 DD 90009 PUSHL NAME_DSC_PTR : 
0000v CF 3 FB 00008 CALLS #2 OPEN ates 3 
000000006 00 16 O00E0 138: JSB FORSSCB_ > 0331 
04 OO0ES RET : 0333 
0000 OO0E7 14$: WORD seve novttes ; 0206 
50 08 ac 00 900E9 MOVL (AP), RO : 
50 04 AO DO OOOED MOVL  4(RO); RO ; 
F4 AO 9F OOOF1 PUSHAB L_UNWIND_ACTION ; 
01 DD O00F4 PUSHL AT : | 
5E DD 000F6 PUSHL SP ; 
7E 04 AC 7D 000F8 MOVO. 4(AP), -(SP) : 
000000006 00 03 FB OOOFC CALLS #3, FORSSERR_OPECLO ; | 
04 00103 RET ; | 
; Routine Size: 260 bytes, Routine Base: _FORSCODE + 0000 | 


; 271 0334 1 
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OMSASSIGN Compatibility CALL ASSIGN routine 16-Sep-1984 00:08: AX=11 Blisg-32 v4.0-74 
1-007 : ‘ “ We=8ep-1984 12:91:97 EPORRTLeSRESCOMASSION.BS2; 1 (4) 


; 273 5 1 ROUTINE OPEN FNAME ( ! Copy filename, stele out spaces 

; 276 § 1 FNAME DSC, ! Adr. of unedited file name descriptor 

; er 1 ' Adr. of current FAB 

: f 8 ! : NOVALUE = ! Value returned is RMS completion code 

: a7 40 1 !4¢ 

$ 7 41 1 ! FUNCTIONAL DESCRIPTION: 
; 280 tg 1! 
; a rb : Copies filename to heap storage. 

: 28 45 1 Historical note: Im VAX/VMS V1, this routine upcased the string 

; rf r 1} and removed all embedded blanks. Since V2, this has not been 
; 5 rt : } necessary. 
: e} 0349 1 | FORMAL PARAMETERS: 
; 289 Bae) 1 FNAME _DSC.rt.ds Adr. of filename descriptor | 
> 290 0352 1! FAB.m2.r Adr. of FAB 

; 291 0353 1! | 
: Bte¢ : : IMPLICIT INPUTS: 
eae ee | 
; 236 0338 | { IMPLICIT OUTPUTS: | 
: 298 0360 1! FABSB_FNS Size of string allocated 
; 944 036) ! FABSL_FNA Adr. of string 

: 301 0368 1 | ROUTINE VALUE: 
: 306 Beee : COMPLETION CODES: 
acme | 
i 306 O38 1 } Sipe eFFects: | 
. $ | 
; Hi Bene : Allocates storage for edited filename string. 
: 310 0372 1 | 
; $1 0398 BEGIN | 
: 38 375 p | 
; 314 0376 FNAME_DSC : REF DSCSDESCRIPTOR 

; 315 0377 FAB : "REF BLOCK CFABSC_BLN, BYTE); 

; 319 $379 LOCAL é 

; 318 Baas LENGTH; ! Length of edited string 

. en eee 

: 23 0388 Count number of characters in string. Set length in FAB. 

; 5 

; 3 Be LENGTH = .FNAME_DSC CDSC$W_LENGTH); | 
; 26 388 IF .LENGTH EQLU 0 THEN SFORSSSIGNAL_STO (FORSK_FILNAMSPE); | 
: 28 0390 IF .LENGTH GTRU 255 THEN SFORSSSIGNAL_STO (FORSK_INVARGFOR); 


Se Oe Be Se Oe Be Oe Se BH Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se oe SH Se Se Se Seas Se Se Se Se Se ae Se Se Se Seas 


eee —Ee - = | oe 


3; Routine Size: 62 bytes, Routine Base: _FORSCODE + 0104 


; 45 0407 1 END 
: 347 0409 0 ELUDOM 


° 
° 
. 
oe 
. 
_ 
. 
° 
. 
° 


PSECT SUMMARY 
Name Bytes Attributes 
_FORSCODE 322 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 


OMSASSIGN Compatibility CALL ASSIGN routine 1b-5¢ Sep-19 AX-11 Bliss-32 V4.0-74 P 9. 
1007 ‘ Sepn1986 1ossi so? ERORRTL SRE SCOMASSIGN.B82;1 O8F ca) 
3 0 9 + 3 
: ; 7 Allocate # of non-blank characters and save address and length in FAB : 
: 95 | ; 
3 9 FABSL_FNA) = FORSSGET _VM (LENGTH); | ; 
; 335 3 FABSB-FNSJ = .LENGTH | ; 
; 260 i* i 
3 i Copy st ; 
i 339 0401 Re dived tu | : 
: 340 Be8g 3 
3 41 9408 CHSMOVE (.LENGTH, .FNAME_DSC COSCSA_POINTER], .FAB CFABSL_FNAJ); : 
: 38 0405 RETURN; | : 
3 344 0406 1 END; ! End of OPEN_FNAME routine | ; 
: 
° 
| : 
003C 00000 OPEN_FNAME : ; 
-WORD Save R2,R3, R4, R5 3; 0335 $ 
53 04 Ac v0 00002 MOVL - FNAME_DSC, RZ > 0386 : 
54 63 3C 00006 MOVZWL (5), -PENGT H ; 3 
04 12 00009 BNEQ 3; 0388 3 
2B DD 00008 PUSHL 3 : $ 
0B 11 0000D BRB 2s ; 3 
000000F F 8F 54 D1 QOOOOF 1$: CMPL LENGTH. #255 : 0390 $ 
9A 1B 00016 BLEQU $ : 3 
0 DD 00018 PUSHL #48 : r 
00000000G 00 01 FB OOOIA 2$: CALLS #1, FORSS$SIGNAL_STO j : 
04 Bens. RET r 3 
52 08 AC 00 00022 3$: MOVL FAB, R2 : 0396 3 
54 DD 00026 PUSHL LENGTH : ; 
00000000G 00 01 FB 00028 CALLS #1, FORSSGET_VM - ; 
2c A 50 DO 0002F MOVL RO, R2) 3 3 
34 A2 54 90 00033 MOVB LENGTH, 52(R2) 3 0397 3 
2c SséB2 04 «B35 54 28 00037 MOVC3 LENGTH, @4(R3), @44(R2) : 0403 3 
04 00030 RET 3 0406 : 
| : 
| : 


COMMAND QUALIFIERS 


FE SREP REE TELS, SE EAM, ATS SE TRACER CO. LF CST ORION LOMAS TON MSRC$: COMASS1GN/UPDATE=(ENH$: COMASSIGN 


Size: 322 code + 0 data bytes 
Run Time: 9 

Elapsed Time: 00:31.9 

Lines/CPU Min: 2754 
Lexemes/CPU-Min: 11872 

poe | Used: 123 pages 

Compilation Complete 


M 12 


COMSASSIGN Compatibility CALL ASSIGN routine 16-Sep 9° 138% 90:08:96 AX-11 Bliss-32 V4.0-74 Page 10) 
1-007 14-Sep-1984 12:31: FORRTL.SRCJCOMASSIGN.B 2;1 (4) 
; Library Statistics 

: eoccee “= Symbols -<------ Pages Processing 

3 File Total Loaded Percent Mapped Time 

: _$255$DUA28:(SYSLIBISTARLET.L32;1 9776 13 0 581 00:01.0 

; ~$255$DUA28: CFORRTL.OBJJFORLIB.L32;1 711 188 26 52 00:00.5 

P “$255$DUA28: CFORRTL.OBJIRTLLIB.L32;1 36 0 0 8 00:00.1 


AL EQUIPMENT CORPORATION | 


Q178 8481138 SE D : 
0] c DENTIAL .AND PROPRIETARY 


VAX/VMS V4.0. 


Hi 


